home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gamers Arsenal 1
/
Gamers Arsenal (Arsenal Computer).iso
/
gifreed
/
gifv.slq
< prev
next >
Wrap
Text File
|
1993-10-11
|
2KB
|
65 lines
;
; GIFV.SLQ
; This script shows how to use the IFBMP, IFGIF, IFPCX and ENTER
; commands.
;
; The PRINTER, PRINTER-ON, PRINTER-OFF and PRINTER-FF commands are
; used here.
;
; All files in the current directory will be checked against the 3
; different supported extensions. Depending on the file type, a
; different counter will be incremented. At the end all three
; counters will be display showing how many of each type of file
; you have!
;
system cls
echo Please wait while reading file info...
change-path *.*
set v1 0
set v2 0
set v3 0
set v4 0
:toploop
ifbmp :dobmp
ifgif :dogif
ifpcx :dopcx
echo File "%file_name%" is NOT a supported graphics file!
goto :doloop
:dobmp
set v1 +
goto :doloop
:dogif
set v2 +
goto :doloop
:dopcx
set v3 +
goto :doloop
:doloop
set v4 +
skipnext :exit
goto :toploop
:exit
printer-on
echo Total files processed is displayed below
display V4
echo The number of BMP files is displayed below
display v1
echo The number of GIF files is displayed below
display v2
echo The number of PCX files is displayed below
display v3
printer-ff
printer report.prn
echo Total files processed is displayed below
display V4
echo The number of BMP files is displayed below
display v1
echo The number of GIF files is displayed below
display v2
echo The number of PCX files is displayed below
display v3
printer-off
ENTER